home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / egavga.swg / 0042_VGA Detect #2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  815 b   |  42 lines
  1. {
  2. > I know how to determine the current mode of a card, but how do a lot of
  3. > Programs determine if a VGA is present in the first place? I'd Really
  4.  
  5. MICHAEL NICOLAI
  6. It's very easy to check if a VGA card is present, 'cause there are some
  7. Functions which are only supported on VGAs. The best one is this:
  8. }
  9.  
  10. Uses
  11.   Dos;
  12.  
  13. Function Is_VGA_present : Boolean;
  14. Var
  15.  regs : Registers;
  16. begin
  17.  Is_VGA_present := True;
  18.  regs.ax := $1A00;
  19.  intr($10, regs);
  20.  if (regs.al <> $1A) then
  21.   Is_VGA_present := False;
  22. end;
  23.  
  24.  
  25. { KELD R. HANSEN }
  26.  
  27. Function VGA : Boolean; Assembler;
  28. Asm
  29.   MOV     AH,1Ah
  30.   INT     10h
  31.   CMP     AL,1Ah
  32.   MOV     AL,True
  33.   JE      @OUT
  34.   DEC     AX
  35.  @OUT:
  36. end;
  37.  
  38. { will return True if a VGA card is installed. }
  39. begin
  40.   Writeln(Is_VGA_present);
  41.   Writeln(VGA);
  42. end.